Unit
lmdctrl

Declaration

TLMDStandardEvent = procedure(Sender:TObject; var Cancel:Boolean) of object;